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S$ep-1984 :08:57 VAX-11 FORTRAN V3.4-56 Pa 1 
if sen 1944 FO er ey PERCSUNGAAS TEN EERE cocamMETAPE.FoR:1 2" 
subroutine mftape (Lun) 
Version: *v04-000" 
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COPYRIGHT olfoate 1978, 80 1982, 1984 BY 
DIGITAL PORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGH $ pment COR 


THIS SOFTWARE IS FURNISHED UNDER . ae Heese suey MAY BE USED AND COPIED 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepokat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Functional description: 
This module displays error log entries for the TU78 tape drive. 
Modified by: 


v03-004 peneses Sharon A. Reynolds, 28-Mar-1984 
Changed the call to UCBSL _OwNUIC to ORBSL_OWNER. 


v03-003 eee haron A. Reynolds, 20-Jun-1983 


0 Changed the carriage control in the ‘format’ statements 
1 for use with ERF. 
g V03-002 SAR0044 Sharon A. Reynolds, 9-Jun-1983 
pe Q Remove brief and cryptic support. 
DC § v03-001 BP0005 Brian Porter, 01-JUN-1982 
4! Corrected attention interrupts. 
DC 3 v02-004 BP0004 Brian Porter 07-FEB-1982 
oe Corrected call to mba_ control ete.. 
DC 4 v02-003 BP0003 Brian Porter, 18-NOV-1981 
mY Z Added new mba code. Minor edit. 
0055 v02-002 BP0002 Brian Porter, 06-NOV-1981 


POOAOAOOAOOOAOOOOOOAOAOOAOAOAOABOOOAIAY = HOOOOAIAIAIMAAAOOOAAOAAAOAOOOOOOOO 


Added ‘device 2 support. 


1f-$e0-1984 MoRFi2y SES cbinSRAS ten: FeRessecamerape.ror:1 2% 


v02-001 BP0001 Brian Porter 01-JUL-1981 
Added call to LiGGER and DHEAD. 


This is the format of the error log entry for the TU78. 
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' af dt 


$owr ews oeo eres eo wove sor ee ese eS + 
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af ar3 : 
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: af ndta H 
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af ndt0 H 
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: af ndt1 
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af ndt2 


Geren S ewoer ower emer ee * 


af ndt3 
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: af id 
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: ucb$l_mf_cmd 
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8 
if ep- :08:57  VAX-11 FORTRAN ¥3.4-56 Pa 3 MFT 
- 3 8 741 DISK VMSMASTER: CERF, SRCIMF TAPE. FOR: 1 att 
/ 60 bytes / 101 
/ extended sense information Y } , 
H : 101 
bow wad 1 1 
' H 101 
oer anne mena seen wan eee enw nee nh : 
we : 
include ‘src$:msghdr.for /nolist' 1 
include ‘src$:deverr.for /nolist’ : 
1 
byte lun 1 
byte mf _exsns (60) 18 
integert4 field 19 
integers4 dt teote 1 : 
integer*4 ndt_fcode 10 
integere4 dt_cmdaddr 18 
integers4 ndt_cmdaddr 1 
integere4 dt_Tntcode 10 
integere4 ndt_intcode 19 
integers4 dt_ function 1 
integers4 ndt_function 1 
integere4 attn_bit_this_tm78 1 
integers4 compress& 1 
integere4 compressc 1 
integers4 LibSextzv 1 
integer*4 LibSexty : 
logical! diagnostic_mode : 
$07 integere4 ucb$Sl_mf_cmd 1 
$08 integers4 ucb_funcEion 1 
Dg integer*4 selected_nap_regi ster 105 
integer*4 adapter_registers(7) 105 
integere4 af_cs! 105 
integere4 af_is 105 
nteger* af_tc 105 
integer*4 af_ari 105 
integere4 at_ 105 
integert4 af_bc 1 ; 
integere4 af_dt 1 
integere4 af_ds 105 
integer*4 af_sn 1 
integere4 af_ar 1 
integere4 af_ar 1 
integer*4 af_ndta 1 
integere4 af_ndt(0:3) 1 
integere4 m 1 
ntegere4 ucB_unit_number } 
equivalence (emb$l_dv_regsav(0) ,adapter_registers) 1 
cquivelence (enbstcdv-regsav(f) ° 1 
equivalence (emb$\"dv_regsav(8) ,.mf_is) 1 
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1$-$00-198 92:8F:2) SIS cdumSRASTER: 


DATA V350T_FUNCTION(28) * READ FORWARD*'/ 118 
r DATA v50T~ “FUNETONGS9> /*EXTENDED SENSE*'/ i 
4 charactert13 v4dt_ function(31:31) 11 
4 DATA V4DT_FUNCTION(31) F*READ REVERSE®*/ af 
cherecterse? mf_dt(10:11) M 
DATA RF _DT(10) /*SLAVE PRESENT®!/ 1 
DATA VIMEDT Ct ) /*DRIVE REQUEST REQUIRED*'/ 1 
cheractersée mf_dt(14:15) 119 
5 DATA ORE fpr ifs “ /*TAPE DRIVE®* 119 
DATA VeMF-DT(15) /*NOT BLOCK ADDRESSABLE®*/ M 
choaracter· 32 ——— 119 
DATA VIMF _DS(4) /*PERFORMING ERASE OF DES COMMAND*'/ : ; 
cheracters13 2mt_ds(6:15) 120 
DATA V2M 6) /*TM SHARED®"/ 130 
? /*TM AVAILABLE®'/ 120 
) /*WRITE PROTECTED®'/ 120 
) /*BEYOND EOT*'/ 120 
19) /*TAPE AT ROT8'/ 120 
11) /*PE MODE*'/ 120 
BIB 7, REWINDINGS*/ 120 
15) /*ON-LINE*'/ 121 
14) /*POWER APPLIED*'/ 121 
15) /"READY*'/ \ , 
af_tc_format(0:6) 121 
sti /*11 WOR MAL#!/ 121 
FORMAT (1) 4°15 NORMAL®'/ 121 
poet ts} /*10 COM PATIBLE®' / 121 
FORMAT (5) 4°10 CORE DUMP*'/ 121 
sae bt imine COMPATIBLE*®'/ ! 1 
FORMAT (6) 4°10 HIGH DENSITY DUMP2'/ ! 
Imf_i1d(8:15) 1 
8) /*HOLD*®'/ 1 
) /*HLDAt'/ 1 
5 10) /"EVEN PARITY*#'/ 1 
11) /*MASSBUS CONTROL PARITY ERROR*'/ 1 
19} /"ILLEGAL REGISTER REFERENCE*'/ 1 
15) /*MICRO PROC. ROM PARITY ERROR®*'/ 1 
9 146) /*TM CLEAR® 1 
; 15) /*TM READY*®'/ ! 
8 charactere14 effet. tets:6) 1 ; 
8 DATA VIMF _IS¢ /"DRIVE PRESENT®*®'/ ' 
95 character*29 dit. tc (15:15) 1 
38 DATA VIMF_TC( /*SUPPRESS ERROR REPCSITIONING*'/ : 
38 haracters7 vimf_csi(0:0) 12: 
ATA VIMF_CS1(0) ~ /*GO BIT*'/ ! y 
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DATA VIMF _EXSNS 3 3 /*MASSBUS TRA®'/ 
DATA VIMF-EXSNS /*MASSBUS ATIN®'/ 
character*21 vi { xsns34(0:7) 
DATA MF _EXSNS34T0) /*MASSBUS SCLKe"/ 
DATA VIMF _EXSNS354(1) /*SCLK OUT#'/ 
DATA VIMF _EXSNS34 (2) /*MASSBUS RUN*t'/ 
DATA VIMF _EXSNS54 (5) /*MASSBUS EXC#'/ 
DATA VIMF _EXSNS54(4) /*MASSBUS EBL*'/ 
DATA VIMF _EXSNS54(5) /*MASSBUS OCC#'/ 
DATA VIMF _EXSNS rh /*MASSBUS WCLK*'/ 
DATA VIMF-EXSNS34(7) /*MASSBUS WRITE ENABLE*'/ 
character*29 viet adsl 

VIMF _EXSNS4 T3) /*DR READ PARITY ERROR*'/ 
DATA VIMF _EXSNS47(4) /*WMC ROM PARITY ERROR*'/ 
DATA V1IMF _EXSNS47(5) /*ERROR*'/ 
DATA ViMF o£ XSNS62 (8) /*DR MASSBUS DATA pea ity ERROR*'/ 
DATA V1MF ~EXSNS47( ) /*DR NO WRITE CLOCK®' 
character*33 vim g⸗5 

VIMF _EXSNS4 TO) /*TRANSLATOR ROM PARITY ae > 
DATA VIMF_EXSNS48(1) /*PE WRITE PARITY ERROR* 
DATA VIMF _EXSNS4 8 /*MASSBUS B LOGIC wot PRESENT®"/ 
DATA VIMF _EXSNS48(3) /*MASSBUS A LOGIC NOT PRESENT®* 
DATA VIMF _EXSNS48(4) /‘WRITE DATA REGISTER PARITY BIT#'/ 
DATA VIMF_EXSNS48(5) /*POWER 
DATA VIMF _EXSNS4 (9) 7° MI CRO=COMPUTER ROM Ay pte ERROR*'/ 
DATA VIMF “EXSNS4 (7) /*MASSBUS PORT SELECT®’ 
character*13 viet ge—25 
DATA IMF _EXSNS49T0) /*FILE PROTECT#'/ . 
DATA VIMF _EXSNS49(1) /*EOT#'/ 
DATA fa SE aT /*BOT#'/ 
DATA VIMF_EXSNS49( /*PES#'/ 
DATA VIMF _EXSNS49(4) /‘REWINDING®*/ 
DATA VIMF_ $49(5) /*ONLINE®'/ 
DATA VIMF 246 /*READY ON®'/ 
DATA V1MF-EXSNS49(7) /*READY®* 
character*14 vimf_exsns50(0:7) 
DATA VIMF_EXSNS 16) /*DSE®'/ 
DATA VIMF_EXSNS50(1) /*MOT#'/ 
DATA VIMF_EXSNS 8 /*LURe'/ 
DATA VIMF_EXSNS50(5) /*WRITE INHIBIT#'/ 
DATA VIMF_EXSNS50(4) /*WRITE®'/ 
DATA VIMF_EXSNS50(5) 7 REVERSES / 
DATA VIMF_EXSNS (9) /*FORWARD® 
DATA VIMF_EXSNS50(7) /* MANUAL TEST#*/ 
cheracterve! viaf gyenes¢5279 

1MF_EXSNS5S1T5) /"AR A ERROR®'/ 

DATA VIMF-EXSNS 158 + pee 
DATA VIMF-EXSNS 1(7) /*CMD/STA PARITY ERROR*'/ 
character*20 vimf gronss6t2s7) 
DATA VIMF_EXSNS54T /*HIGH READ THRESHOLD*'/ 
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call dhead! (lun, *MASSBUS') 
diagnostic_mode = .false. 
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if (LibSextzv(5,1,mf_ds) .eq. 1) diagnostic_mode = .true. 

dt_cmdaddr = LibSextzv (0,2,mf_tc) 

dt_function = LibSextzv (1,5,mf_cs1) 

ucb_function = LibSextzv (1,5,ucb$l_mf_cmd) 

ucb_unit_number = LibSextzv (0,8,emb$w_dv_unit) 

attn_bit_this_tm78 = LibSextzv (LibSextzv(0,8,emb$b_dv_slave),1,mf_ab) 
if (dt_cmdaddr .eq. ucb_unit_number 


DOONAN E WN O OONOULS WI —O”0 


dt_ function -eq. ucb_ function 
4 attn_bit_this_tm78 .eq. 0) then 


9 
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15 DATA VIMF_EXSNS54(3) /*TACHS'/ 1 

1 DATA VIMF ~EXSNS54(4) /*EOT DETECTED®'/ 1 

1 DATA  VIMF~EXSNS54(5) /*READ ENABLE®'/ 1 

1 DATA  VIMF-EXSNS 4(6) /*NOT WRITE®'/ } 

1 DATA _-V1MF ~EXSNS54(7) /*NOT WRITE BIT 4*'/ } 

1 character*26 v1 xsns56(5:7) 1 

oe : DATA -V1MF_EXSNS tr8} /*INITIAL DIRECTION REVERSE®'/ 1 

DATA  -VIMF-EXSNS (6) /*INITIAL COMMAND READ®'/ 1 

$ DATA  V1MFEXSNS56(7) /"LAST RETRY OPPOSITE®'/ } 

character*30 v1 xsns57(0:7) 1 

$65 DATA V1MF_EXSNS 78} /"DSE_IN PROGRESS*'/ 1 

DATA -VIMF~EXSNS57(1) /*REWIND IN PROGRESS*'/ 1 

DATA - VIMFEXSNS (¢) /*TAPE PRESENT, POWER ON®'/ 1 

DATA = VIMF ~EXSNS57(3) /"NDT FROM mASSBUS IN PROGRESS*'/ 1 

1 DATA  -VIMF~EXSNS57(4) /"LAST DIRECTION REVERSE®'/ 1 

¢ DATA -VIMF~EXSNS57(5) /*LAST OPERATION INCLUDED WRITE®*'/ 1 

DATA VIMFEXSNS57 (6) /*LAST RECORD TAPE MARK®'/ } 

06 4 DATA —- VIMF ~EXSNS57(7) /*LAST MASSBUS COMMAND PORT B*'/ : 

06 characters8 vitu_selx(2:5,0:1) 1 

06 DATA VITU_SELX(2,0) /"1 WRITE®'/ 1 

06 DATA  VITUTSELX(3.0) 76 WRITE®'/ } 
DATA  VITUTSELX(4,0) 7*1 READ®'/ 1381 
DATA  VITUTSELX(5.0) 7*0 READ®'/ 3 
064 DATA VITU_SELK(G,1) /*3 WRITE®'/ 138. 
064 DATA  VITUTSELX(3,1) i WRITE®"/ 138 
DATA —- VITUTSELX(4.1) /"3 READt'/ 138: 
DATA VITUTSELX(5,1) /*2 READ®'/ } ' 

1 

call frctof (lun) ! 
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ndt_function = 0 


all mba_control shegisters (lLun,5,adapter_registers, 
selectéd_map_régister) 


all mba_mapping_register (lun,selected_map_register, 
i adapter_ registé.st6)) — 


if (selected_map_register .gt. 0) then 


iad mba snapping. register (lun,(selected_map_register - 1), 
nngenter _registers(7)) 


endif 
call Linchk ast 


write(lun.8) m 
format(/' ',t8, tae CS1°,t24,28.8) 


if (.mot. diagnostic_mode) then 

call mba_status_register16_31 (lun,mf_csi,mf_cs1,0) 
call output (lun,mf_csl,vimf_cs1,0,0,0,'0") 

cail Linchk (lun,1) 

if (dt_function .eq. 20) then 


write(lun,10) vidt_function(dt_ function) 
format(' ',t40,a<cOmpressc (vldt_function(dt_function))>) 


lse if ( 
dt_function .ge. 23 


| i 
dt_function .le. 25 
) then 


write(lun.11) v2dt grunetvenies function) 
»t40,a<cOmpressc (v2dt_function(dt_function))>) 


q'ee if ¢ 
Cét_tunctton -eq. 28 


1 * 

1 dt_function .eq. 29) 

1) then : 

yr itetiyn, 12) v3dt gtuncttonids function 

format(’ *,t40,a<cOmpressc (v3dt_ — OOS function) )>) 
else if (dt_function .eq. 31) then 


write(lun, 15) védt_function(dt_ function) 
foraat( 5 t40,a<compressc (v4dt_function(dt_function))>) 
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col} output (Lun,mf_csl,v2mf_cs1,11,11,11,'0") 


ws 


call Linchk (lun,1) if 
rite(lun,25) m 7 

25 Yormat(’ '.t8," TAF is*,t24, 28.8) 
7 


if (.mot. diagnostic_mode) then 
call mba_status_register!6_31 (lun,mf_csi.mf_is,1) 
if (dt_cmdaddr .eq. ucb_unit_number 
dt_function .eq. ucb_ function 
4 attn_bit_this_tm78 .eq. 0) then 
dt_intcode = LibSextzv(0,6,mf_is) 
call Linchk (lun,1) 
{0 Sey tatcode -ge. 1 
2 dt_intcode .le. 4) then 


82* vlinterrupt_code(dt_intcode) 
30 format(' ',t40,a<compressc (vlintérrupt_code(dt_intcode))>) 


elise if (dt_intcode .ge. 8 
2 dt_intcode .le. 13) then 


yricetiun, 31) —— code(dt_intcode) 
31 format(’ ',t40 ,a<compressc (vlinterrupt_code(dt_intcode))>) 


ise if (dt_intcode .ge. 16 
2 dt_intcode .le. 25) then 


yritetiyn, 32) v2interrupt_code(dt_intcode) 
32 format(’ ',t40, a<compressc (v2intérrupt_code(dt_intcode))>) 


else if (LibSextzv(14,1,mf_id) .ne. 0) then 


yrivetiun, 53) v2interrupt_code(dt_intcode) 
33 rengets -t40,a<compresse (v2intérrupt_code(dt_intcode))>) 


7 


22222 
— 


Pee 
2 


POOoOOSCeESCeoce e 


— — — — — — — — — — 


call output (lun mf_is,vimf_is,8,8,8,'0") 
dt_fcode = LibSextzv (10,6,mf_is) 

call Linchk (lun,1) 

if ((dt_intcode .eq. 1 
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“ intcode .eq. 4 
dt_intcode .eq. 16 


7 “7 


0 
dt_intcode .eq. 17) 


} 

1 

and 

idt_fcode .ge. 0 
teh 


7 ele. 1)) then 


— Ge 


rite(lun,40) fcode_intcodel (dt_fcode) 
40 format(’ ", t40,accompresse (feode. intcodel (dt_fcode))>) 


give if (dt_intcode .eq. 2 
.and. 
; dt_fcode .ge. 1 

dt_fcode .le. 3) then 


write(lun,45) fcode_intcode3(dt_fcode) 
45 format(’ *,t40,a<compressc (fcode_intcode3(dt_fcode))>) 


lse if (dt_intcode .eq. 9 
.and. 
dt_fcode .ge. 1 

4 dt_fcode .le. 3) then 


write(lun,50) fcode_intcode9(dt_fcode) 
50 format(" *,t40,a<compressc (fcode_intcode9(dt_fcode))>) 


else if ((dt_intcode .eq. 18 
dt. intcode -eq. 19 

dt. intcode -eq. 20 

dt. intcode eq. 21 
-intcode eq. 22 
.intcode .eq. 23) 
ikea -ge. 1 

dt fcode .le. 11) then 

i 


te(lun,60) fcode_intcodel8(dt_fcode) 


60 format(’ ', t40,accompressc (fcode_intcode18(dt_fcode))>) 


glee i (dt_intcode .eq. 24 
idt_fcode .ge. 1 


i. wle. 19)) then 
write(lun,65) dt_fcode 


oy 
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65 
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95 


format(® *,t40,"FAILURE CODE = ',02.2,° ‘OCTAL)") 
ise if (dt_intcode .eq. 25 
tat tcode .ge. 1 
dt_icode .le. 15)) then 
write(lun,65) dt_fcode 
ise if (dt_intcode .eq. 25 
(3 idt_fcode .ge. 17 
5 «le. 35)) then 
write(lun,65) dt_fcode 
else if (dt_intcode .eq. 28 
1 and. 
dt_fcode .ge. 1 
& dt-fcode ste. 2) then 
yeteotiyn, 73). fcode_intcode28(dt_fcode) 
Foraeck -t40,a<compressc (fcodé_intcode28(dt_fcode))>) 
endif 
call Linchk (lun,1) 


write(lun,85) aft 
format(' "t8, MF Tc’ ,t24, 28.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mf_is,mf_tc,1) 
if (dt_cmdaddr .eq. ucb_unit_number 

dt. function eq. ucb_function 
4 attn bit_this_tm78 -eq. 0) then 
call Linchk (lun,1) 
er stotiyn, 90) dt cmdaddr , 
Loree seer gMTaQTRAMEER_ (RD ADDR UNIT = *, 
field = LibSextzv (2,6,mf_tc) 
call Linchk (lun,1) 


write(lun,95) field 
format(’ 
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-t40,"RECORDS REMAINING = ',i<compress4 (field)>,'.") 
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09 tield = LibSextzv (8,4,mf_te) 

090 call Linchk (lun,1) 

0905 write(tun,100) field 

0906 ©=-:100 format’ ft40,'SKIP COUNT = ',i<compress4 (field)>,".") 


0908 field = LibSextzv (12,3,mf_te) 


+> 


yu 
091 if (field .ge. 0 
091 a oe 
a9 field .le. 6) then 

4 call Linchk (lun,1) 

71 write (lun,105) mf tc format(field) 

4 105 format(® ',t40,"F FORMAT = Vr a<conpressc (mf _tc_format(field))>) 
71 


call output (lun,mf_tc,vimf_tc,15,15,15,'0") 
endif 


call Linchk (lun,1) 


write(lun, 115) mf_m 
115 format(’ ',t8, MF “Rl 026, 28.8) 


if (.not. diagnostic_mode) then 


NOVUEUN OO OONOULS WN —O 


1 call mba_status_register16_31 (lun,mf_tc,mf_mr1,1) 
endif 
¢ call Linchk (lun,1) 


ite(lun,120) mf_a 
120 Torment eg) · e26,28.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun.mf_mri,mf_ab,1) 
do 128,i = 0,7 


2 


9999 OOOO CIO OE LH CHOCO 
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+: . . . . © . . 


endif 
call Linchk (lun,1) 


‘ 

0945 if (LibSextzv(i,1,mf_ab) .eq. 1) then 

05 call Linchk (lun,1) 

F yritetiun yn,125) 4 

0950 125 orm Foraact $40, ATTENTION MASSBUS UNIT ',i1,".") 
Dg 128 cont inue 

+ 

+: 


* uran puen YMC ERRTIM ESE seetape ron?” 
130 —— — “BC',t24,28.8) 

if (.not. diagnostic_mode) then 

call mba_status_register!6_31 (lun,mf_ab,mf_bc,1) 

if (dt_cmdaddr .eq. ucb_unit_number 

dt. function eq. ucb_ function 

attn bit_this_tm78 eq. 0) then 
field = LibSextzv (0,16,mf_bc) 
call Linchk (lun,1) 


write(lun,135) field 
135 —— -t40,°BYTE COUNT = ',i<compress4 (field)>,'.') 


endif 
call Linchk (lun,1) 


write(lun,140) mf_dt 
160 format(* .t8,"ME"DT*.t26,28.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mf_bc,mf_dt,1) 
field = LibSextzv (0,8,mf_dt) 
if (field .eq. 65) then 
call Linchk (lun,1) 
yritetiyn, 163) 
145 fornet( -t40,"DRIVE TYPE TU78") 
endif 
call output (lun,mf_dt,vimf_dt,10,10,11,°0") 
call output (lun,mf_dt,v2mf_dt.,14,14.75,'0") 
endif 


call Linchk (lun,1) 


write(lun,155) = 
format ( 28 ORE ĩ 26, 28.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun, mf_dt,af_ds,1) 
call output (lun,mf_ds,vimf_ds,4,4,4,'0") 


155 
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call output (lun.mf_ds,v2mf_ds,6,6,15,'0°) 
else 


call Linchk (lun,1) 
rite(lun,157) "DAIGNOSTIC MODE’ 

format(’ ',t40,a) . 

endif 

call Linchk (lun,1) 


write(lun,160) mf_sn 
format(’ .t »"MF-SN',t24,28.8) 


if (.not. diagnostic_mode) then 
cot} mba_status_register16_31 (lun,mf_ds,mf_sn,1) 
endif 


call Linchk (lun,1) 


write(lun, 165) mf_m 
format(' tt8, "MFO mR *,t24,28.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mf_sn,mf_mr2,1) 
endif 


call Linchk (lun,1) 


write(lun.17 ) mf_m 
format(’ °,t8,'MF “AR *,t24,28.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun.mf_mr2,mf_mr3,1) 
endif 


ndt_cmdaddr = LibSextzv (8,2,mf_ndta) 
call Linchk (lun,1) 


etd ig wh ) af_ndtea 
format ( . "MF -NDTA',t24,28.8) 


if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,mf_ar3,mf_ndta,1) 
ndt_function = LibSextzy (1,5,mf_ndt(ndt_cmdaddr)) 


if ¢ 
1 attn_bit_this_tm78 .eq. 1 
1 (ndt_cmdaddr .eq. ucb_unit_numbey 
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; nde funct ton eq. ucb_ function) 

1 .or; x 

1 ucb$l_mf_cmd .lt. 0 

1) then 

dt_ function = 0 

ndt_intcode = LibSextzv (0,6,mf_ndta) 
call Linchk (lun,1) 

if (nde. intcode .ge. 1 

bag ndt t intcode ele. 13) then 


write(lun,180) ylinterrupt_code(ndt_intcode) 
Mereeciir ete, Lecorerenee™ Cot tnterFupt. code(ndt_intcode))>) 


yee (ndt_intcode .ge. 23 

2 ndt _intcode ele. 25) then 

bets sg be +t ug interrust.. ~foge(ndt . intcode) 

Forgets ° ° pressc (vdinterrupt_code(ndt_intcode))>) 
ndt_fcode = LibSextzv (8,2,mf_ndta) 

call Linchk (lun,1) 


yr ive tun, 199) ndt_f 
format(' *,t40, ATTENTION CMD ADDR \INIT = °,i1,°.°) 


ndt_fcode = LibSextzv (10,6,mf_ndta) 
call Linchk (lun,1) 

gY SCase_tntcode -eq. 1 

: nde. tatsode -eq. 4 

' nét_tatcode -eq. 16 

; * tatecods -eq. 17) 

§ ——— -ge. 0 

4 


ndt_fcode .le. 1)) then 


write(tun,195) fcode 2 intcode! (nde. fcode) 
(" *,t40,a<compressc (fcode_intcodel (ndt_fcode))>) 


gice if (ndt_intcode .eq. 3 
ndt_fcode .ge. 1 
y .and. - 
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1 4 ndt_fcode .le. 3) then 


write 2 fcode_intcode3(ndt_fcode) 
Yornettt te b.ateenBreses Cfcodesinteode3(ndt. feode) )>) 


ise if (ndt_intcode .eq. 9 
and 

1a fcode -ge. 1 
ndt_fcode .le. 3) then 


write(lun,205) fcode_intcode9(ndt_fcode) 
205 format(* *,t40,a<compressc (fcode_intcode9(ndt_fcode))>) 


ise if (ndt_intcode .eq. 13 
| — 
ndt_fcode .ge. 1 
os | . 

4 ndt_fcode .le. 4) then 


write(lun.210) fcode_intcodel3(ndt_fcode) 
210 format(' *,t40,a<compressc (fcode_Tntcodel3(ndt_fcode))>) 


yee ((ndt_intcode .eq. 19 
: nde tateede -eq. 20 
: nde. tnteade -eq. 21 
} nét. intcode -eq. 22 
: ndt_intcode .eq. 23) 


wr 


— 


iw 


nde fcode -ge. 1 
ndt_fcode .le. 11) then 


write(lun,.215) fcode_intcodel8(ndt_fcode) 
215 format(* *,t40,a<compressc (fcode_Tntcode18(ndt_fcode))>) 


iso i" (ndt_intcode .eq. 24 
§ sndt.fcode -ge. 1 
4 ndt_fcode .le. 19)) then 
write(lun,65) ndt_fcode 

lse if (ndt_intcode .eq. 25 

FF iccte -ge. 1 

4 ndt_fcode .ge. 15)) then 
write(lun,65) ndt_fcode 
else if (ndt_intcode .eq. 25 
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: 
x 


inde teode .ge. 17 
ndt_fcode .le. 35)) then 
write(lun,65) ndt_fcode 
; lse if (ndt_intcode .eq. 28 
4 ndt_fcode .ge. 1 
4 ndt_fcode .le. 2) then 
35 230 format?” te0,acconbresse.¢ de Tateede28indt. fcode))>) 


write(lun 231) intcode 
231 format(’. t40,' meter" INTERRUPT CODE ‘,02.2," (OCTAL)") 


call Linchk (lun,1) 


bbe 9 322 nat fcod 
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1 


232 OP RILURE CODE *,02.2," (OCTAL)') 
ner 

endif 

endif 

do 250,i = 0,3 

call linchk (lun,1) 


write(lun, 235) i Lat fngtt i) 
235 format(’ °,t8, "ME i1,t24,28.8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,mf_ndt(max(0,i-1)) .mf_ndt(i),1) 
if (i .eq. ucb_unit_number 

oa ndt. function -eq. ucb_function) then 

call Linchk (lun,1) 

if (ndt_function .ge. 1 

2 nde. function .le. 19) then 

urivediyn, 260) vindt_function(ndt_ function) 
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5 240 Forgets -t40,a<compressc (vindt_function(ndt_ function) )>) 
3 tield = LibSextzv (8,8,mf_ndt(i)) 
rt call tinchk (Lun,1) 
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Soma Re 


245 


250 


260 


265 


270 


LS a ef field 


— 


hnd 


format »' COMMAND COUNT = ',i<compress4 (field)>,’.") 
endif 
continue 
call Linchk (Lun,1) 
write (Ll 


Yorsectt tt  MEn1D" ,t26,28.8) 

if (.not. diagnostic_mode) then 

call mba_status_registerl6_31 (lun,mf_ndt(3),mf_id,1) 
call output (lun,mf_id,vimf_id,8,8,15,'0") 

if ** hd_entry .ne. 96 

ide cadaddr .eq. ucb_unit_number 


t_tunct ion -eq. ucb_function 
t_atcode .ne. 17 
t_fcode ene. 0) 


i cmdaddr .eq. ucb_unit_number 
ndt. function eq. ucb_function 
ndt.i intcode .ne. 5 

.an 

ndt_intcode .ne. 6 

.and, 

ndt_intcode ne. 7 


a . 

ndt_fcode .ne. 0)) 

or. 

ucb$l_mf_cad .lt. 0) then 
call Linchk (lun,3) 


write(lun,265) 
format(/* *,*EXTENDED SENSE INFORMATION',/) 


call Linchk (lun,8) 


dd td ot = I OOOO WWII 
So 23 Ge 


atime te ) int ee saad = 1,5 3 
důen "COMMAND CODE',/ 
; t “favre ie , TarERRUFT CODE',/, 
J fet 40, TINTERR — CODE',/. 
*ORPFAIL'. 38 Fi a 
, *RPATH' ,t30,2 


call output (Lun,mf_exsns(5),vimf_exsns5,0,0,7,'0°) 
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Dd 
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I 


—8 
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call Linchk (lun,2) 
write( 295) fof e sng 6) 
295 formant" 8 a brag ti ot 
i °oRMC STATUS’ _ $.* toc 
call Linchk (lun,7) 
write(lun,300) (mf_exsns(i),i = 7,13) 
300 formag(t t,t8 —X cmcP' : T80, 22. 2./,° 
3 tb, "RDON’ {t ; : 
i iB. * 3 2 
51 35 
ét “sei £8022 38°45 
call output (lun,mf_exsns(13),vimf_exsns13,0,0,7,'0") 
call Linchk (lun,5) 
er St exsns(i),i = 14,18) 


vi 
335 format ( *t30,22.2,/ 
9* FapavA —* th /; * 
gt * *CRCWR 6.3 


5} = 169) 
2.2,/,40, 
CTAL) §) 


of ° 
ofe 
ode 
sf ° 


— — — — — — — — — — 


MEUM o —⏑ — 


— 
call output (lun,mf_exsns(18) ,vimf_exsns18,0,0,7,'0") 
do 365,i = 0,7 
call Linchk (lun,1) 


——— 36 Ae exsn 
360 format(' *yt Wet 5022. 2) 


365 continue 
call Linchk (lun,4) 


write(lun 398 inte exens (i) i = 27,30) 
370 v3 eee -t30,22.2,/, 


1 t rare pat 5 /, 
— PART 82028524) 
call output (Lun,mf_exsns(30),vimf_exsns30,0,0,7,'0") 
call Linchk (lun,2) 
uritetiyn 390) , (at exsn Ci}. = 31,32) 

390 ‘ PROB' ,t3 D7 , 
1°tBe casstA'st30.2222) 


field = LibSextzv(0,3,mf_exsns(32)) 
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1 
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1 

1 

1 415 
1 

1 

1 

1 

1 

1 

1 420 
1 

1 

1 

1 

1 

1 

1 

1 

1 422 
1 

1 

1 

1 

' 95 424 
1397 

1398 

1399 

1400 

1401 

14 

14 

14 

10 3 426 
1407 

14 

14 

1619 430 
141 

1412 


call Linchk (lun,1) 


write(lun,4 
A ley RN DRIVE SELECT = *,i<compress4 (field)>,'.*) 


call output (lun,mf_exsns(32),vimf_exsns32,3,3,7,'0') 
call Linchk (lun,1) 


write(lun,410) mf_exsns(33) 
thd a a PaOSstAt 


call output (lun ,mf_exsns(33),vimf_exsns33,0,0,7,'0') 
call Linchk (lun,1) 


ob hedd | ge — ) mf_exsns (34 
format(' . DBOSSTA',t30,22.2) 


call output (lun,mf_exsns(34) ,.vimf_exsns34,0,0,7,'0") 
call Linchk (lun,1) 


write(lun,42 ) mf_exsns(35) 
format(' ',t8,"wMCSTA',t30,22.2) 


fieid = LibSextzv (7,1,mf_exsns(36)) 
do 430,i = 0,field 
call Linchk (Llun,2) 


write(lun,42 ) i,mf exsns (36 + i) 
format(’ *,t8,"TUSEC ',i11,t30,22.2) 


field = LibSextzv (0,2,mf_exsns(36 + i)) 


write(lun 1424) field 
format(' ',t40,"TAPE UNIT SELECT = *,i<compress4 (field)>,*.") 


do 430,k = 2,5 

field = LibSextzv (k,i,mf_exsns(36 + i)) 

if (field .ne. 0) then 

call Linchk (lun,1) 

teeter yitu, selx(k,i 

eer +t A oy 9 PORT Piers (vitu_selx(k,i))>, 
endif 

cont inue 

call Linchk (lun,1) 
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b-ben-1984 90:98:27 ST EKSVMSHAS TER: EERE. SRCIMF TAPE. FOR: 1 — = 
rite( 435) mf (38) 
435 ht ae  ORTBATS G80. 22.2) 
call Linchk (Llun,3) 
rite( 450) ((mf_exsns(39 + i + j),i = 1,0,-1), 4,2) 
450 Format’ "otBe BYTCRY st38.222.2,7,0 7 — 
t8, ‘PADCNT —32 ve 
t8,ERRCNT' ,te8.ez2.0) 
call Linchk (lun,3) 
write(lun,455) (mf_exsns(45 + i),i = 0,2) 
455 format(’ 38 spank £30, 22.2,/.t8, "DOR B',t30,z2.2,/, 
1 t8,"DoR €°,t30,22.25 
call output (lun,mf_exsns(47) ,vimf_exsns47,3,3,7,'0") 
call Linchk (lun,1) 


write(lun,465) mf_exsns (48) 
465 format(* *,t8,"INSTA’,t30,22.2) 


call output (lun,mf_exsns(48) ,vimf_exsns48,0,0,0,'0") 
if (dt_function .eq. 24) then 

call output (lun,mf_exsns (48) ,vimf_exsns48,0,1,1,'0") 
endif 


WWW 


SREP SESE 


call output (lun,mf_exsns (48) ,vimf_exsns48,0,2,7,'0') 
call Linchk (lun,1) 


write(lun.47 ) mf_exsns(49) 
470 format(' ',t8,"MTA 0°,t30,22.2) 


call output (lun,mf_exsns(49) ,.vimf_exsns49,0,0,7,'0") 
call Linchk (lun,1) 


write(lun.475) af_exsns(50) 
475 format(® ',t8,"MTA 1°,t30,22.2) 


call output (Lun,mf_exsns(50),vimf_exsns50,0,0,7,'0") 
call Linchk (lun,1) 


write(lun,480) mf_exsns(51) 
480 format(’ *.t . MIR ae 222.2) 


field = LibSextzv (0,3,mf_exsns(51)) 
call Linchk (lun,1) 
if (field .eq. 6) then 


SANA AAA AMIN 


| 
: 
Q 


1f-Fen- 194 10:8F:2) | SISSumSRASTER: TERE SecamFrape.ror;1 0% 24 


: 
z 


rite 485) ‘a’ 
485 erase otk ."PORT SELECT = MASSBUS ‘,a) 


else if (field .eq. 5) then 
write(lun,485) ‘B' 

else if (field .eq. 3) then 
write(lun,485) ‘A/B’ 

else 


— 
— 
—A 


write(lun,490) 
490 Forgets -t40, "NEITHER MASSBUS SELECTED’) 


call Linchk (lun,1) 
if (LibSextzv(3,2,mf_exsns(51)) .eq. 2) then 


SSLEAFERLS 


90 

91 write(lun,495) 

35 495 format(' *,t40,°125 IPS TRANSPORT’) 
9 else 

94 

95 


write(lun,500) 
500 veregts” ~t40,"NOT TU78 SPEED") 


5 ehh eke eke ee Dee eB le Ue We Ue tke a 


S258 


call output (lun.mf_exsns(51),vimf_exsns51,5,5,7,'0") 
do 515,i = 3,4 
call Linchk (lun,1) 


rite(l 510) f (49 + i) 
510 hate gh mtn 7orh 230, 22.2) 


Mew 


515 continue 
call Linchk (lun,1) 
write(lun,520) (mf_exsns(i),i 32, 3) 
520 format(’ *-t40," "SERIAL NUMBER = = 22.3 22.2) 


call Linchk (lun,1) 


ite(lun,525) af 4) 
Pree ettt ain Wtf aes 


call Linchk (lun,1) 


ite(Lun,530) LibSextzv(0,2,mf (54)) 
530 Yormat(’ * 530) ibsexezvi0. 2 myers) 


call output (Lun,mf_exsns(54),vimf_exsns54,2,2,7,'0") 


a a tt tt ws a as st ss a 
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535 


540 


545 


550 


570 


575 


580 


‘ — ret dt 
field = LibSextzv (0,8,mf_exsns(55)) 
call Linchk (lun,2) 
formee tt tB Re af rent s30, sfigid - 
count “4 + i<compressé (Hetas>,*.") 
call Linchk (lun,1) 


write(lun, 540) mf_exsns(56 
format(’ ',t8,"RETCNT+1°,t30,22.2) 


if (field .ne. 0) then 
call output (lun,mf_exsns (56) ,vimf_exsns56,5,5,7,'0") 
endif 


call Linchk (lun,1) 


rite l 545) af (57) 
format’ ot TUR’. t30,22.2) 


call output (lun,mf_exsns(57),vimf_exsns57,0,0,7,'0") 
call Linchk (lun,1) 


Cee. ) af_exsns(58) 
format ( o MFRCTL',t30,22.2) 


call Linchk (lun,1) 


whee gs grt ) af_exsns(59 
format ( » KRETRY',t 8 22.2) 


call Linchk (lun,1) 


ite \yn,575) af 0) 
formset? "8," ENKON' st50,22.2) 


if —— ene. 0) then 
call Linchk (lun,1) 


yr ite ium, 589 
forma 70, "KEYPAD ENABLED’) 


endif 
endif 


if (ucb$l_mf_cad .ge. 0) then 

if (embSw_hd_entry .ne. 98) then 
call Linchk (lun,1) 
write(lun,585) 
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format(' *,:) 

if CembSw_hd_entry .ne. 98) then 

call ucbSb_ertcnt (lun,emb$b_dv_ertcnt) 
cot } ucbeb_ortaes (Lun,emb$b_dv_ertmax) 


call orb$Sl_owner (lun,emb$l_dv_ownuic) 
call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (Lun,emb$i_dv_opcnt) 
call ucb$wlerrcnt (lun, ,emb$w_dv_errcnt) 
if (emb$Sw_hd_entry .ne. 98) then 

call Linchk (lun,1) 

write(lun,585) 

call mftape_qio (lun,emb$w_dv_ func) 
call irp$w_bcnt (lun,emb$w_dv_bcnt) 
call irp$w_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_rapid) 
call irp$q_iosb (lun,emb$l_dv_iosb1) 
endif 


endif 
endif 


return 
end 
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MBA_STATUS_REGISTER16_31 


Label 
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PONE FINI 
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1-000008A1 
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I*4 COMPRESSC 
IRP$L_PID 
IRPSW_BOFF 
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Subroutine MFTAPE_Q10 (lun,emb$w_dv_ func) 
include ‘src$:qiocommon.for /nolist’ 


byte 
integer*2 
integers4 


lun 
emb$w_dv_ func 
qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
qiocode(1,00) = Zloc(io$_nop) 


giocode(1,01) 
qiocode(1,02) 
qiocode(1,03) 
qiocode(1,04) 
aiocode(1,06) 
aqiocode(1,08) 
qiocode(1,09) 
qiocode(1,10) 
aqiocode(1,11) 
aiocode(1,12) 
qiocode(1,25) 
qiocode(1,26) 
aiocode(1,27) 
qiocode(1,28) 
qiocode(1,30) 
qiocode(1,32) 
qiocode(1,33) 
aiocode(1,34) 
qiocode(1,35) 


Zloc (io$_unload) 
Zloc (io$_spacefile) 
Zloc(io$_recal) 
Zloc(io$_drvclr) 
Zloc(io$_erasetape) 
Zloc (io$_packack) 
Zloc(io$_spacerecord) 
Zloc(io$_writecheck) 
Zloc(io$_writepbik) 
Zloc(io$_readpblk) 
Zloc(io$_readpreset) 
Zloc(io$_setchar) 
Zloc(io$_sensechar) 
Zloc(io$_writemark) 
Zloc (io$_clean) 
Zloc(io$_writelblk) 
Zloc(io$_readlblk) 
Zloc (io$_rewindof f) 
Zloc(io$_setmode) 


: 
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qiocode(1,36) 
qiocode(1,37) 
qiocode(1,38) 
qiocode(1,39) 
qiocode(1,40) 
qiocode(1,48) 
qiocode(1,49) 
qiocode(1,50) 
qiocode(1,51) 
aqiocode(1,52) 
qiocode(1,53) 
qiocode(1,54) 
qiocode(1,56) 
qiocode(1,57) 


do 10,1 = 0,63 


= Zloc(io$_rewind) 

= Zloc(io$_skipfile) 

= Zloc(io$_skiprecord) 
= Zloc(io$_sensemode) 

= Zloc(io$_writeof) 

= Zloc(io$_writevbik) 

= Zloc(io$_readvblk) 

= Zloc(io$_access) 

= Zloc(io$_create) 

= Zloc(io$_deaccess) 

= Zloc(io$_delete) 

= Zloc(io$_modi fy) 

= Zloc(io$_acpcontrol) 
= Zloc(io$_mount) 


aiocode(0,i) = 33 


if (qiocode(1 


-i) .eq. 0) then 


iocode(1,i) = Zloc(qio_string) 
endit sate iat 


continue 
endif 


galt irp$w_f 


giocode(0, LibSextzv(0,6 —X oy func))) 


return 
end 


unc (Lun,emb$w 
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Name Bytes 
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SPDATA 34 
SLOCAL suf 
QIOCOMMON 124 
Total Space Allocated 2127 
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CHAR 10$_ABORT 

CHAR 10$"ACPCONTROL 
CHAR 1O$-CLEAN 

CHAR 10$~DEACCESS 
CHAR 10$-D1AGNOS 
CHAR 10$~DSE 

CHAR 10$-FORMAT 
CHAR 10$~LOADMCODE 
CHAR 10$-MOUNT 

CHAR 10$~OFFSET 
CHAR 10$~QSTOP 

CHAR I0$-READCSR 
CHAR *~ >~READLBLK 
CHAR 10$"READPRESET 
CHAR 10$-READVBLK 
CHAR JO$~READWTHXBUF 
CHAR 10$~RELEASE 
CHAR 1O$~REREADP 
CHAR 10$~REWIND 
CHAR 1O$"SEARCH 
CHAR 1O$~SENSECHAR 
CHAR 1O$~SETCHAR 
CHAR 10$~SETCLOCKP 
CHAR 10$~SKIPFILE 
CHAR 1OS~SPACEFILE 
CHAR JOS~STARTDATA 
CHAR 10$-STARTMPROC 
CHAR 10$-STOP 

CHAR 10$~WRI FEBUFNCRC 
CHAR 1O$-WRiTECHECKH 
CHAR 10$"WRITEHEAD 
CHAR 10$"WRITEMARK 
CHAR 10$"WRITEPBLK 
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MFTAPE_Q10 -Sep- : + VAX-11 FORTRAN V3.4-56 P 3 
1g-Fep-1964 90: 0F:2 $ DISKSVMSMASTER: teat RF .SRCIMF TAPE .FOR;1 — 
1 CHAR IOS_WRITETRACKD HAR 10$ -Wal ! ave © 
RBS, oS ganinss ee fi au 
@t*1 LUN Al EHAR aio: STRING. 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*4 QI0CODE 512 (0:1, 0:63) 
LABELS 
Address Label 
+e 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_FUNC I*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MFTAPE/OBJ=OBJ$:MF TAPE MSRC$:MF TAPE 
/CHECK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 

/DEBUG= (NOS YMBOL § BACK) 
) 
/NOG_ FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 4.70 seconds 
Elapsed Time: seconds 
Page Faults: 

Dynamic Memory: 86 pages 
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